home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / e / speedtests / procexit.e < prev    next >
Text File  |  1999-06-14  |  373b  |  32 lines
  1. MODULE '*testspeed'
  2.  
  3. CONST LOTS_OF_TIMES=1000000
  4.  
  5. DEF x=5,y=5
  6.  
  7. PROC main()
  8.   test({ifthen},  'IF THEN RETURN', LOTS_OF_TIMES)
  9.   test({ifendif}, 'IF ENDIF',       LOTS_OF_TIMES)
  10. ENDPROC
  11.  
  12. PROC ifendif()
  13.   IF x
  14.     NOP
  15.     NOP
  16.     IF y
  17.       NOP
  18.       NOP
  19.     ENDIF
  20.   ENDIF
  21. ENDPROC
  22.  
  23. PROC ifthen()
  24.   IF x=NIL THEN RETURN
  25.   NOP
  26.   NOP
  27.   IF y=NIL THEN RETURN
  28.   NOP
  29.   NOP
  30. ENDPROC
  31.  
  32.